home *** CD-ROM | disk | FTP | other *** search
- // %filename% -- document class
- // Created %date% %time% by AppMaker
-
- #include "U%AppName%Doc.h"
-
- %for each window gen includeWindow%
- #ifndef __UPrinting__
- #include "UPrinting.h"
- #endif
-
- #include "ResourceDefs.h"
-
- const OSType kScrapType = 'TEXT';
-
- #pragma segment AOpen
- //----------
- pascal void T%appname%Doc::Initialize ()
- {
- inherited::Initialize ();
- }
-
- #pragma segment AOpen
- //----------
- pascal void T%appname%Doc::I%appname%Doc (TFile* itsFile)
- {
- IFileBasedDocument (itsFile, kDocFileType);
- fSavePrintInfo = true; // default is false
- }
-
- #pragma segment AClose
- //----------
- pascal void T%appname%Doc::Free (void)
- {
- FreeData ();
- inherited::Free ();
- }
-
- #pragma segment AClose
- //----------
- pascal void T%appname%Doc::FreeData (void)
- {
- }
-
- #pragma segment AOpen
- //----------
- pascal void T%appname%Doc::DoMakeViews (Boolean /* forPrinting */)
- {
- TWindow *aWindow = NULL;
- TStdPrintHandler *aStdPrintHandler;
-
- %for each window gen makeWindow%
-
- if (aWindow != NULL) {
- aStdPrintHandler = new TStdPrintHandler;
- aStdPrintHandler->IStdPrintHandler (this,
- aWindow, // main view of main window
- !kSquareDots,
- kFixedSize, // horizontal page size
- !kFixedSize); // vertical page size
- }
- } /* DoMakeViews */
-
- #pragma segment AWriteFile
- //----------
- pascal void T%appname%Doc::DoNeedDiskSpace (TFile* itsFile,
- long& dataForkBytes,
- long& rsrcForkBytes)
- {
- inherited::DoNeedDiskSpace (itsFile, dataForkBytes, rsrcForkBytes); // to save print info
- dataForkBytes += 0; // size of your data;
- }
-
- #pragma segment AReadFile
- //----------
- pascal void T%appname%Doc::DoRead% %(TFile* aFile,
- Boolean forPrinting)
- {
- inherited::DoRead (aFile, forPrinting); // read printer info
- }
-
- #pragma segment AWriteFile
- //----------
- pascal void T%appname%Doc::DoWrite% %(TFile* aFile,
- Boolean makingCopy)
- {
- inherited::DoWrite (aFile, makingCopy); // save print info to disk
- }
-
- #pragma segment ARes
- //----------
- pascal void T%appname%Doc::DoSetupMenus (void)
- {
- inherited::DoSetupMenus ();
- }
-
- %for each menu gen dynamicMenuProc%
- #pragma segment ASelCommand
- //----------
- pascal void T%appname%Doc::DoMenuCommand% %(CommandNumber aCmdNumber)
- {
- short menu;
- short item;
-
- if (aCmdNumber < 0) {
- CommandToMenuItem (aCmdNumber, menu, item);
- %for each menu gen dynamicMenu%
-
- } else {
- switch (aCmdNumber) {
- case 0:
- break;
- // put your menu commands here
- default:
- inherited::DoMenuCommand (aCmdNumber);
- } /* switch */
- }
- } /* DoMenuCommand */
-
- /* %unitname% */
-